home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aal.d64 / banner printer (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  62 lines
  1. 5 DIMA(8,8)
  2. 10 POKE53281,12:POKE53280,12:POKE646,0:PRINT"[147]";
  3. 12 PRINT"BANNER PRINTER BY DICK SEARFOSS"
  4. 15 PRINT"TYPE IN TEXT YOU WANT TO PRINT ON BANNER"
  5. 20 PRINT"STRING OF 80 CHAR'S MAX NO (,)OR(:)'S[146]":PRINT:PRINT
  6. 21 INPUTA$
  7. 22 L=LEN(A$):IFL>80THENPRINT"TO LONG[146]":GOTO10
  8. 25 FORZ=1TOL
  9. 27 D$=MID$(A$,Z,1):AS=ASC(D$)
  10. 29 IFAS>63THENA=(AS-64)*8+53248:GOTO35
  11. 31 A=(AS*8)+53248
  12. 35 POKE56334,PEEK(56334)AND254
  13. 36 POKE1,PEEK(1)AND251
  14. 40 FORX=0TO7
  15. 45 Y=0
  16. 50 B=PEEK(X+A)
  17. 60 C=INT(B/128):IFC=1THENB=B-128
  18. 65 A(X,Y)=C:Y=Y+1
  19. 70 C=INT(B/64):IFC=1THENB=B-64
  20. 75 A(X,Y)=C:Y=Y+1
  21. 80 C=INT(B/32):IFC=1THENB=B-32
  22. 85 A(X,Y)=C:Y=Y+1
  23. 90 C=INT(B/16):IFC=1THENB=B-16
  24. 95 A(X,Y)=C:Y=Y+1
  25. 100 C=INT(B/8):IFC=1THENB=B-8
  26. 105 A(X,Y)=C:Y=Y+1
  27. 110 C=INT(B/4):IFC=1THENB=B-4
  28. 115 A(X,Y)=C:Y=Y+1
  29. 120 C=INT(B/2):IFC=1THENB=B-2
  30. 125 A(X,Y)=C:Y=Y+1
  31. 130 C=INT(B)
  32. 135 A(X,Y)=C:Y=Y+1
  33. 150 NEXTX
  34. 157 POKE1,PEEK(1)OR4
  35. 158 POKE56334,PEEK(56334)OR1
  36. 160 GOSUB500
  37. 170 NEXTZ
  38. 300 STOP
  39. 500 OPEN1,4
  40. 520 FORG=0TO7
  41. 525 FORF=1TO2
  42. 526 PRINT#1,TAB(16);
  43. 530 FORH=7TO0STEP-1
  44. 540 IFA(H,G)=0THENPRINT#1,"      ";
  45. 550 IFA(H,G)=1THENPRINT#1,"******";
  46. 560 NEXTH
  47. 565 PRINT#1," "
  48. 570 NEXTF
  49. 580 NEXTG
  50. 600 FORF=1TO3
  51. 610 PRINT#1
  52. 620 NEXTF
  53. 630 CLOSE1:RETURN
  54. 700 FORG=0TO7
  55. 710 FORH=0TO7
  56. 720 IFA(G,H)=0THENPRINT" ";
  57. 730 IFA(G,H)=1THENPRINT"*";
  58. 740 NEXTH
  59. 750 PRINT" "
  60. 760 NEXTG
  61. 1000 PRINT"[147]"
  62.